home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / SAMPLES1.PAK / NAMESRCH.WFM < prev    next >
Text File  |  1995-07-18  |  3KB  |  103 lines
  1. *******************************************************************************
  2. *  PROGRAM:      NameSrch.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         3/94
  7. *
  8. *  UPDATED:      5/95
  9. *
  10. *  VERSION:      Visual dBASE
  11. *
  12. *  DESCRIPTION:  This is a search form used by Nameinfo.wfm
  13. *
  14. *  PARAMETERS:   None
  15. *
  16. *  CALLS:        Buttons.cc  (Custom Controls file)
  17. *                Names.qbe   (View of table)
  18. *
  19. *  USAGE:        DO NameSrch.wfm
  20. *
  21. *******************************************************************************
  22. set ldCheck off
  23.  
  24. ** END HEADER -- do not remove this line*
  25. * Generated on 06/15/94
  26. *
  27. parameter bModal
  28. local f
  29. f = new NAMESRCHFORM()
  30. if (bModal)
  31.    f.mdi = .F. && ensure not MDI
  32.    f.ReadModal()
  33. else
  34.    f.Open()
  35. endif
  36.  
  37. CLASS NAMESRCHFORM OF FORM
  38.    Set Procedure to &_dbwinhome.samples\Buttons.cc additive
  39.    this.Width =         31.67
  40.    this.Top =          1.62
  41.    this.Left =         66.52
  42.    this.Height =          9.09
  43.    this.Text = "Select Customer"
  44.    this.Minimize = .F.
  45.    this.Maximize = .F.
  46.    this.HelpFile = ""
  47.    this.HelpId = ""
  48.    this.OnOpen = CLASS::FORM_ONOPEN
  49.    this.OnClose = {;close procedure &_dbwinhome.samples\Buttons.cc}
  50.  
  51.    DEFINE BROWSE SEARCHBROWSE OF THIS;
  52.        PROPERTY;
  53.          Width         29.03,;
  54.          Top          0.52,;
  55.          Left          1.32,;
  56.          Height          6.57,;
  57.          FontBold .F.,;
  58.          OnOpen {;Go top},;
  59.          ColorNormal "N/W",;
  60.          ShowRecNo .F.
  61.  
  62.    DEFINE OKBUTTON SEARCHOKBUTTON OF THIS;
  63.        PROPERTY;
  64.          Width         14.11,;
  65.          Top          7.58,;
  66.          Left          1.32,;
  67.          OnClick {;form.Close()},;
  68.          Height          1.50
  69.  
  70.    DEFINE CANCELBUTTON SEARCHCANCELBUTTON OF THIS;
  71.        PROPERTY;
  72.          Group .F.,;
  73.          Width         14.11,;
  74.          Top          7.58,;
  75.          Left         15.84,;
  76.          OnClick CLASS::CancelSearch,;
  77.          Height          1.50
  78.  
  79.    ****************************************************************************
  80.    Procedure FORM_ONOPEN
  81.    ****************************************************************************
  82.  
  83.    if alias() <> "NAMES"
  84.       set view to names.qbe
  85.    endif
  86.    this.startRecord = recno()
  87.    this.searchBrowse.alias = "Names"
  88.    this.searchBrowse.fields = "FNAME\H='First Name',LNAME\H='Last Name'"
  89.  
  90.  
  91.    ****************************************************************************
  92.    Procedure CancelSearch
  93.    ****************************************************************************
  94.  
  95.    go form.startRecord
  96.    form.Close()
  97.  
  98.  
  99. ENDCLASS
  100.  
  101.  
  102.  
  103.